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SBEGIN RMODUMMY,000,RMSRMSO,<DUMMY ROUTINES>,<NOWRT,QUAD> 


RMOI 
v04: 


— = ——e 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQU ita, ENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corre 
IN ACCORDANCE WITH THE jenny OF YE" co [ik SE__AND WITH THE 
SION OF THE ABOVE ghd | NOTICE. THIS TWARE OR ANY OTHER 
S_THEREOF oy NOT BE PROVIDED OR OTHER Wise OMADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* ” 
*® *® 
x ® 
* * 
* * 
* ” 
. * 
* * 
. ® 

:f * 

;* TRANSFERRED. * 
® * 
* * 
* * 
* . 
* * 
* * 
® * 
* + 
* * 
st * 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


IPR SRASASERASALASARSAASEASALASALER AAR E SAR RRRR RA RRASERR RRS RAR ARRAS RRR A RASS SO 


Modified By: 


COOGOCCOCOOCCOCOCSOOCOCCSCSOSOSSCOOOCOCOSOSOOCOCOCOOOCOOCOCO OOO OCOOOOoOOoOo 


OOoCCOCCOSOOSOOSCOSSOSOSOSOOCSOSOSOSOSOOCOSOOSOSOSCOOCOOOOSOSOSOOOOOCOOOSOOOOOOOOOSoO 


V03-006 JAK0141 JA 10-Apr-1984 
V03-005 RAS0236 Ron Schaefer 16-Jan-1984 
Make the RMS patch psect be at the end of RMS (again). 
V03-004 RASO217 Ron Schaefer 2-Dec-1983 
Make the RMS patch psect be at the end of RMS. 
v03-003 KBT032x Keith B. Tho matt 10-Sep-1982 
Add RMS$GL _VERSION od RMS$_VERSION globl symbols | 
v03-002 KBT0314 Keith B. Thompson 7-Sep-1982 
Fix bugcheck code 
v03-001 KBT0152 Keith B. Thompson or | 
Reorganize psects and rename entry eee wo s “in "—_ 


V02-036 TMK0023 Todd M 14-Dec-1981 
Change patry point from RASERRORG to RMSSERRORG to fix 
broken branch. 

v02-035 KPLOO001 Peter Lieberwirth 6-July-1981 

Add a testpoint to count the waver of times RAS 
waits on record lock conflict. Also add testpoints 
to count calls to RMSLOCK om “RMSQUERY ULCK. | 

| 


V02-034 REFORMAT Frederick E. Deen, Jr. 25-Jul-1980 
This code was reformatted to adhere to RMS standards 
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: Add four network eeletea testeetats. 
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=SEP=1 RMS.SRCIR RMOD DUMMY .MAR; 1 
: vO33 —- JAK0026 JA Krycka 03-0ct-1979 | 
; Add, delete, and rearrange network testpoint counters. 
: vO32  JAK0006 JA Krycka 15-Jan-1978 
; Reserve TPT space for use by network file name parsing code. 
; v031 —- RANO003 R A Newell 19-Dec-1978 | 
3 File sharing code enhancements 
: REVISION HISTORY: 
; .* 01-Nov-1978 


| 
10:00 | 
X0001 - nehake bug check non-fatal and delete process | 
SRMSDEF 


p++ 
3; RMSBUG - RMS bug check routine 
3 RMSERRORG = Error in file organization 


; NOTE: The alignment of this code is critical in that the bugcheck 
codes are not allowed to cause a page fault. 


RMSBUG: : 
52 DD PUSHL R2 i free up a register | 
52 04 BE 98 CVTBL a@4(SP),R2 3 get RMS error code 
FEFF BUGW : o9 the bugcheck | 
0000° -WORD BUG$_RMSBUG ‘ th RMS bugcheck code 
13. «14 BGTR 10$ ; branch if not fatal (from cvtbl r2) | 
SDELPRC_S ; delete the process, should not return 
50 00010001 8F 00 MOVL #RMS$_NORMAL ,RO ; if delpre returns we are in rundown 
04 RET ; and a delprc was already called so 
; just return (at this point all is 
: ost). 
04 BA 10$: POPR #*M<R2> ; restore r2 
6— 06 INCL (SP) ; skip past bug code | 
05 RSB ; back to caller 


: Error in file organization 


RMSERRORG: : 
RMSTBUG F TL$_BADORGCASE 
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Sooo oocooococcocoqoqooQoooQooooooooooooQoQoooooQoQoQoQoooooooooooe 
PIPMININININININPND) 2 2 2 FF FM OOOCOCOCOCCOCOOCOCOCOCOCOOCOSOOCOOOCOOOCOOOOOOOOOOCOOOOOOoOOo 
COD SELL LPN TMAH AMM NA PDHKHVOOOCOCOCOCCCCOCOCOCOCOOOCOCOCOOCOOOOOCOCOOooO 
DNAS WN 0 OD NAN E WN O OD NAU EWN 0 OO NAME WW OOONAUS WMO Oo 


DODOODOOOCOCOWOOOOO OO O00 00 0009 09 09 09 09 09 09 09 SIN NN NSN NS NNN IPA A AAA AAOOOvrt 
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Q00007F4 
0000000C' 
00000800 


SEP= RMS.SRCJRMODUMMY .MAR; 1 
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119 = -PSECT _RMSSPATCH,PAGE ,NOWRT 

112; 

118 ; RMSSGL_VERSION = Version number for the RMS image. 

115 je 

118 RMS$_VERSION == 0 ; Default to zero if not redefined 
118 RMS$GL_VERSION:: 

1} «LONG RMS$_VERSION ; Defined at Link time 

! 1 34+ 

: § ; RMS$GQ_PATCH = Space for patching the RMS image. 

125 j-- 

126 

127 RMS$GQ_PATCH:: 

128 «LONG <4*#512>-12 3 4 pages worth MINUS version Longword 
: 3 LON + ; starting immediately 


-LONG , 
-BLKB  <4#512>-12 


RMODUMMY 
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:38 CRMS.SRCJRMODUMMY .MAR ; 1 (4). 


138 ; 
1 ; + 
: } ei ; Define testpoint offsets for counters in PIO segment. 
8 136 ° 
$6 1 $ .MACRO F NAM 
8 1 8 TPT $L_'NAM==..CNT 
0 1 .CNTS, SCNT +4 
4 140 ~ENDM 
00000000 44 3] .-CNT=0 
4 128 F ACCESS i; # of file access calls 
0 144 F ASTDSA 3; # of eines ASTS disabled 
800 145 F CLOSE 3; # of SYSSCLOSE ns called 
0800 198 é COMCLNU : # of DISCON NECT cleanup 
0800 14 é CONNECT 3; # of times SYSSCONNECT” fynet ion called 
0800 148 7 CONNECT2 3; # of calls to RMSCONNECT 
0800 149 F CREATE ; # of times SO SSCREATE function called 
0800 150 F CREATE1 ; # of calls to RMSCREATE1 
0800 151 F CREATE2 ; # of calls to RMSCREATE2 
44 136 16 é DEACCES : # of file DEACCESS calls 
0800 154° F DELETE 3; # of times SYSSDELETE function called 
0800 155 F DELETE2 ; # of calls to RMSDELET 
0800 156 F DISCONO 3; # of times SYSSDISCONNECT function called | 
0800 157 F DISCON1 ; # of calls to RMS$DISCONNECT1 
0800 158 F DISCON2 ; # of calls to RMS$DISCONNECT2 
0800 159 F DISPLAY ; # of times SYSSDISPLAY function called 
0800 160 F ERASE : # of times SYSSERASE function called 
0800 161 F EXTEND 3; # of times SYSSEXTEND function called 
0800 196 F FCPEXT ; # of FCP extends 
tte 197 20 F FCPFNC 3 # of FCP functions requested 
0800 165° F FCPFNCA : # of FCP functions requested (alternate en. 
0800 166 F F IND ; # of times SYSSFIND function called 
0800 167 F FIND1 ; # of SEQ. org. ee 
0800 168 F FIND2 3; # of REL. ot PR INDs 
0800 169 F FLUSH : # of times SYSSFLUSH function called 
0800 170 F FREE : # of times SYSSFREE function called 
0800 =171 F GET 3; # of times SYSSGET function called 
0800 126 F GET1 ; # of SEQ. org. sets 
0800 17 F GET2 ; # of REL. org. 
44s \e $0 F GETBLKD : # of SEQ. org. CET to block devices 
$800 176 ; F INDPPF 3; # of indirect opens of PPF'S 
080 17 r LOCK ; # of times RMSLOCK called 
080 178 F MODIFY ; # of times SYSSMODIFY function called 
0800 179 F MODIFY2 ; #@ofc to ‘escape’ MODIFY 
0 180 F NXTBLK1 ; # of calls to RMSNXTBLK1 
0 181 f NXTVOL : # of times SYSSNXTVOL function called 
800 1 F OPEN : # of times SYSSOPEN function called 
0800 1 F OPEN1 : # of SEQ. org. OPENs 
080 184 F OPEN2 ; # of REL. OPENs 
8 3 185 0 F PARSE 3 # of qt ky § SSPARSE function called 
1 3 4 
f PARSES ; # of calls to PARSE STRING routine (RMOXPF | 
0800 1 F PuT ; # of times SYSSPUT Function called | 
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50 


60 


70 


network specific testpoints. 


80 


90 


TAHA TN OSS noon oon 


be De Dee De Bo Be De ee De Be) “awh 


STALLLOCK 
TRUNCATE 


UPDATE 


UPDATE1 
UPDATE2 
WA 


NTACC_DAP 
NTACC_NSP 


NTCLOSE 
N 


NTDISCON 
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of SEQ. org. puts 

of REL. org. puts 

of SEQ. org. puts to block devices 

or SEQ. org. puts to unit record devtons| 
of calls to RMS$PUTSET1 

of calls to RMS$PUTSET2 

of times RMSQUERY_LCK called 

of times SYSSREAD function called 


of times waited .. a record lock 
of calls to RMSR RELBLK1 

of buffer RELEASEs 

of times SYSSRELEASE function called 

of times SYSSRENAME function called 

of times SYSSREWIND function called 

of times SYSSRMSRUNDWN called 

of times SYSSSEARCH es and SYS 
of SEQ. org. READ Qio’ 

of SEQ. org. WRITE aio* s for block devic 


SEQ. org. WRITES to unit record devic 
of times S$ S$SSETDDIR function called 

of times SYSSSETDFPROT function called 
of calls to RMS$SETDID routine (directory 
of times SYSS$SPACE function called 

of ASTs processed at RMSTHREADGO 

of RMS stalls 

of RMS stalls requiring asb allocation 
of times STALL_LOCK is called 

of times SYSSTRUNCATE function called 


| 
of times SYSSUPDATE function called | 
of SEQ. org. upgetes 


Bete Ge Ge Se Se Se Be Se Ge Pete Se Se Se Ge Ge Se 


BRBVBVVBVeBVZBV BBVVVVVVVVZBV BBVBVVVVVVVEBVZ BBVVBVVVZVZTEZWV 
°o 
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of REL. org. update 

of times SYSSWAIT Junction called 

of times SYSSWRITE function called 

of calls to RMSWTLST1 

of RMS Logical coves name translations 
of calls to RMSXPF 


Sete Be Ge Se Ge Ge Ge 


of network ACCESS calls at DAP level | 
of network ACCESS calls at NSP Level 
| 
of network CLOSE function calls 
of network CONNECT function calls 
of network CREATE function calls 
network DAP message decodes 
of network DAP message encodes 
of network DAP message receive Q10s | 
of network DAP message transmit Q10s 
of network DEACCESS calls 
of network DELETE tune t ton calls 
of network DISCONNECT function celts 
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°o 
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v04-000 mit 7 90: 38:2 RMS.SRCJRMODUMMY .MAR; 1 . (4) 
6 F NTDISPLAY 3; # of network DISPLAY function calls 
4 F NTENTER 3; # of network ENTER function calls 
‘3 F NTERASE : # of network ERASE function calls 
8 4 F NTEXTEND 3 # of network EXTEND function calls 
50 F NTF IND 3 # of network FIND function calls 
8 51 F NTFLUSH 3 # of network FLUSH function calls 
26 F NTFREE ; # of network FREE function calls 
800 5 F NTGET 3; # of network GET function calls 
4 54 F NTNXTVOL 3; # of network NXTVOL function calls 
B80 2? 100 F NTOPEN ; # of network OPEN function calls 
4 3$ F NTPUT ; # of network PUT function calls 
28 F NTREAD ; # of network READ function calls 
508 5 F NTRELEASE 3; # of network RELEASE function calls 
et 60 F NTREMOVE 3; # of network REMOVE function calls 
800 61 F NTRENAME ; # of network RENAME function calls 
44 96 F NTREWIND 3; # of network REWIND function calls 
800 6 f NTSEARCH 3; # of network SEARCH function calls 
0800 64 a TSPACE 3; # of network SPACE function calls 
0800 65 F NTTRUNC 3; # of network TRUNCATE function calls 
b800 ¢ 110 F NTUPDATE 3; # of network UPDATE function calls 
0800 268 F NTWRITE ; # of network WRITE function calls 
0800 269 F NTXLATLOG ; # of RMS logical node name translations (r 
0800 270 
0800 271 
0800 272 
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VERSION 
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UMODE 
RMSBUG 


Symbol table 


RMODUMMY 
SSRMS 
CNT 
BUGS 
FILS 
RMSSGL 
TPTSL 
TPTSL 
TPTSL 
TPTSL 


RMSB 


RA 
vO 


RMODUMMY DUMMY ROUTINES 16-SEP-1984 00:18:29 VAX/VMS Macro V04-00 Page 
Symbol table = $601 38% 0:38:98 RMS .SRCJRMODUMMY .MAR; 1 ° 
TPTSL_STALAST = 104 G 
TPTSL“STALL . 108 G 
TPTSL-STALLAL = 10C G 
TPTSL-STALLLOCK . 110 G 
TPTSL-TRUNCAT z 114 6G 
TPTSL_UPDATE = 118 G 
TPTSL_UPDATE1 z 1 G 
TPT$SL-UPDATE2 : 99 120 G 
TPTSL_WAIT s 124 G 
TPTSL_WRITE = 108 G 
TPTSL-WTLST1 z 1 ¢ 6 
TPT$L_XLATLOG : 0 o1 G 
TPTSL-XPFN = 134 6 

ne Oe ROO orem + 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. ABS. 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 00000028 ¢ 40.) 01 ¢ 1. PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 
SABSS 99000000 ¢ 0.) O@ ¢ @.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_RMSSPATCH 00000800 ( 2048.) 03 ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 

Cr 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.10 80: 00:01 -28 
Command processing 110 4 644 a6 00:00:05. § 
Pass 1 198 00:00:04.17 Es 
Symbol table sort 0 BP 280: 20-88 0 a ae 
Pass 2 69 00:00:00.99 00:00:03.45 
Symbol table output 16 0:00:00.11 00:00:00.11 
Psect synopsis output 2 0:00:00.02 00:00:00.02 
Cross-reference output BF OO + ae Bo +8808 +80 
Assembler run totals 42 00:00:06.6 00:00:25.76 


The working set Limit was 1200 pages. 

22029 bytes (44 pages) of virtual memory were used to buffer_the intermediate code. 

There were 20 pages of symbol table space allocated 9 hold 389 non-local and 1 local symbols. 
object records in Pass 2. 

pages of virtual memory were used to define 14 macros. 


ef source Lines were read in Pass 1, producing 20 
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! Macro Library statistics ! 


tee ere rere ee eee ee em memo ee sen} 


Macro Library name Macros defined 


.$255$DUA28:CRMS. .- ra -MLB;1 4 
“$255$DUA28: (SYS MLB; 1 0 
“$255$DUA28: SYS IBISTARLET. MLB; 2 5 
TOTALS (all Libraries) 9 


364 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMODUMMY/OBJ=O0BJ$:RMODUMMY MSRC$:RMODUMMY/UPDATE=(ENHS:RMODUMMY) +EXECML$/L1IB+LIB$:RMS/LIB 
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